home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / yvutil.lha / Rexx / gotourl.rexx next >
Encoding:
OS/2 REXX Batch file  |  1998-04-06  |  597 b   |  25 lines
  1. /* Voyager Launcher and URL auto-pointer                                */
  2. /* This version is smarter than what comes with YAM, as it will load    */
  3. /* Voyager if it is not already loaded.                                 */
  4. /* Copyright (c) Tristan R. Young, tyoung@netrover.com  4/5/98          */
  5.  
  6. PATH = "dh1:internet/voyager"
  7.  
  8. PARSE ARG url
  9.  
  10. START:
  11.  
  12. if show('P','VOYAGER') then do
  13.     address VOYAGER 'Show'
  14.     address VOYAGER 'OpenURL "'url'"'
  15.     EXIT
  16.     end
  17.  
  18. else do
  19.     pragma('D', PATH)
  20.     address command "run >nil: v"
  21.     address command "waitforport VOYAGER"
  22.     signal START
  23. end
  24.  
  25.